Problem getting fields lists and fields aliases from a frxCustomDataset

J??nior Garcia

Hello, I declare in a function a variable named dataSet, its type is TfrxCustomDataset. The problem is that I'm trying to get the fields names and fields aliases, but when I work with this dataSet variable in a loop, the error Index out of bounds is shown. Originally I have 2 other variables: fieldsAliases and fieldsNames (TStringList).

The procedure I'm using is this one:

procedure TfrmFiltraRelatorio.FormCreate(Sender: TObject);
var
  i: Integer;
  fieldList, fieldAliases : TStringList;
begin
  fieldList    := TStringList.Create;
  fieldAliases := TStringList.Create;

  for i := 0 to Pred(dataSet.FieldsCount) do
    fieldList.Add(dataSet.Fields.Fields[i].FieldName);
end;

Let's assume that this can be replaced by the function dataSet.GetFieldList(fieldList). When I do it, the values of my fieldList's strings receive the fields' aliases actually. I'd like to solve this: get the field's lists and field's aliases in the respective variables. Thanks.

Mick.pl

Did you try (dataSet.FieldsCount - 1) instead of Pred(dataSet.FieldsCount) ?

J??nior Garcia

Mick.pl wrote: »

Did you try (dataSet.FieldsCount - 1) instead of Pred(dataSet.FieldsCount) ?

Yes Mick, I have the same error

Mick.pl

J??nior Garcia wrote: »

Yes Mick, I have the same error

IMO both Fields and FieldDefs generate an error Index out of bounds. And you should send a ticket to FR Team.
Hava a look at sample code below, maybe it will help you anyway:

procedure BitBtn1OnClick(Sender: TfrxComponent);
var
  i: Integer;
begin
  for i:=0  to ADOQuery1.FieldsCount-1 do with ADOQuery1 do
  begin
    ShowMessage( 'FieldAlias:    ' + FieldAliases[i]        + #13#10 + #13#10 +     
                 'Original name: ' + FieldAliases.Names[i]  + #13#10 +
                 'User name:     ' + FieldAliases.Values[ FieldAliases.Names[i]]);
  end            
end;

Let us know if they answer your ticket. The solution may be usefull for many FR users.

J??nior Garcia

Hi everyone. I was unable to answers the topics this weekend, sorry. Well, I'd like to know how to send a ticket to the development team. Thanks.

Mick.pl

J??nior Garcia wrote: »

Hi everyone. I was unable to answers the topics this weekend, sorry. Well, I'd like to know how to send a ticket to the development team. Thanks.

Just click "Ticket" on this website http://www.fast-report.com/en/support/

J??nior Garcia

Mick.pl wrote: »

Mick.pl wrote: »

Hi everyone. I was unable to answers the topics this weekend, sorry. Well, I'd like to know how to send a ticket to the development team. Thanks.

Just click "Ticket" on this website http://www.fast-report.com/en/support/

Thnx Mick, here is the link to the ticket http://support.fast-report.com/tickets/251922

Mick.pl

wrote:

Thnx Mick, here is the link to the ticket http://support.fast-report.com/tickets/251922

All tickets are hidden - no one can see them besides the sender and FR Team

J??nior Garcia

Hi everyone! Well, I finally solved my problem. The loop need to be done with a TDataSet component, that is returned when we use the function GetDataSet from some frxDBDataSet. Look at the example:

for i := 0 to Pred(frxDBDataSet.GetDataSet.FieldsCount) do
    fieldList.Add(frxDBDataSet.GetDataSet.Fields[i].FieldName);

Thanks for the help again!